home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 5-Fonts & Software / Applications / PageMaker / PageMaker 3.02 / PageMaker 3.02.rsrc / STR#_306.txt < prev    next >
Text File  |  1989-06-19  |  2KB  |  150 lines
  1. 3 add index exch 2 add index dup
  2.  
  3. 4 1 roll sub mul add
  4.  
  5. counttomark 1 add 1 roll cleartomark}
  6.  
  7.  
  8.  
  9.  
  10.  
  11. counttomark dup 3 add -1 roll exch
  12.  
  13. 2 sub mul dup floor cvi
  14.  
  15. dup 3 1 roll sub exch dup
  16.  
  17.  
  18.  
  19. {exch pop abs 1 exch sub}
  20.  
  21.  
  22.  
  23.  { abs exch abs 2 copy add 1 gt {1 sub dup mul  exch 1 sub dup mul add 1 sub }{ dup mul exch  dup mul add 1 exch sub } ifelse } 
  24.  
  25.  /imbuf w bits mul 7 add 8 idiv string def 
  26.  
  27.  x0 y0 translate w h bits [sx 0 0 sy 0 0] 
  28.  
  29.  {currentfile imbuf AsBin {readstring} {readhexstring} ifelse pop} image 
  30.  
  31.  }     def 
  32.  
  33.  
  34.  
  35.  % *** call image *** 
  36.  
  37.  % 
  38.  
  39.  /sx w dw div def 
  40.  
  41.  /sy h dh div def 
  42.  
  43.  
  44.  
  45.  % *** call settransfer *** 
  46.  
  47.  % 
  48.  
  49.  /tweakfunc load AldSettransfer
  50.  
  51.  % 
  52.  
  53.  % *** call setscreen *** 
  54.  
  55.  % 
  56.  
  57.  freq angle /spotfunc load setscreen
  58.  
  59.  % 
  60.  
  61.  
  62.  
  63.    AldNewproc cvx 
  64.  
  65.  } def 
  66.  
  67.  /AldSettransfer { 
  68.  
  69.    currenttransfer exch AldConcatprocs AldOldsettransfer 
  70.  
  71.  } def
  72.  
  73.  % 
  74.  
  75.  
  76.  
  77.  /AldNewproc AldProc1 length AldProc2 length add array def 
  78.  
  79.  AldNewproc 0 AldProc1 putinterval 
  80.  
  81.  AldNewproc AldProc1 length AldProc2 putinterval 
  82.  
  83.  
  84.  
  85.  % *** redefine settransfer *** 
  86.  
  87.  % 
  88.  
  89.  /AldOldsettransfer /settransfer load def
  90.  
  91.  /AldConcatprocs {
  92.  
  93.    /AldProc1 exch cvlit def 
  94.  
  95.    /AldProc2 exch cvlit def 
  96.  
  97.  
  98.  
  99.  /angle exch def 
  100.  
  101.  /freq exch def 
  102.  
  103.  /bits exch def 
  104.  
  105.  /h exch def    /w exch def 
  106.  
  107.  /dh exch def    /dw exch def 
  108.  
  109.  /y0 exch def    /x0 exch def 
  110.  
  111.  /AsBin exch def 
  112.  
  113.  
  114.  
  115.  % 
  116.  
  117.  
  118.  
  119.  /S_IMAGEV3    {    
  120.  
  121.  % 
  122.  
  123.  % get all the parameters 
  124.  
  125.  % 
  126.  
  127.  /tweakfunc exch def 
  128.  
  129.  /spotfunc exch def 
  130.  
  131.  
  132.  
  133. /imbuf w 7 add 8 idiv string def 
  134. clr setgray 
  135. x0 y0 translate w h inv [sx 0 0 sy 0 0] 
  136. {currentfile imbuf AsBin {readstring} {readhexstring} ifelse pop} imagemask 
  137. } def    
  138.  
  139.  
  140. /S_IMAGEMASKV3    {    
  141. /clr exch def    /inv exch def 
  142. /h exch def        /w exch def 
  143. /dh exch def        /dw exch def 
  144. /y0 exch def    /x0 exch def 
  145. /AsBin exch def 
  146. /sx w dw div def 
  147. /sy h dh div def 
  148.  
  149.  
  150.